# simulate a dataset with continuous data
set.seed(1234)
dataset <- matrix(runif(1000 * 20, 1, 100), nrow = 1000 )
G = pc.con(dataset)$G
plota(G)
dev.new()
nei( G, c(3, 4) )
dev.new()
nei( G, c(1, 3) )
Run the code above in your browser using DataLab